home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 May / EnigmA AMIGA RUN 27 (1998)(G.R. Edizioni)(IT)[!][issue 1998-05].iso / earcd / sinclair-ql / jantoflp_bas < prev    next >
Text File  |  1998-02-11  |  378b  |  14 lines
  1. 10 WDIR \'ram1_tmp_dir','jan1_'
  2. 20 OPEN_IN #3,'ram1_tmp_dir'
  3. 30 REPeat Cpy
  4. 35    IF EOF(#3) THEN EXIT Cpy
  5. 40    INPUT #3,a$
  6. 45    IF a$="" THEN NEXT Cpy
  7. 47    IF "--DIR--" INSTR a$ THEN NEXT Cpy
  8. 50    n='.' INSTR a$
  9. 60    IF n>0 THEN a$(n)='_'
  10. 70    PRINT 'copy jan1_';a$;' to flp1_';a$
  11. 80    COPY 'jan1_'&a$ TO 'flp1_'&a$
  12. 90 END REPeat Cpy
  13. 100 CLOSE #3 : DELETE 'ram1_tmp_dir'
  14.